home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 0159 / vb.zip / SELECMDI.FRM < prev    next >
Text File  |  1996-01-17  |  3KB  |  122 lines
  1. VERSION 2.00
  2. Begin MDIForm MDIForm1 
  3.    Caption         =   "Selector Custom Control Demonstration"
  4.    ClientHeight    =   5535
  5.    ClientLeft      =   1500
  6.    ClientTop       =   2085
  7.    ClientWidth     =   8760
  8.    Height          =   6225
  9.    Icon            =   SELECMDI.FRX:0000
  10.    Left            =   1440
  11.    LinkTopic       =   "MDIForm1"
  12.    Top             =   1455
  13.    Width           =   8880
  14.    WindowState     =   2  'Maximized
  15.    Begin Menu mnu 
  16.       Caption         =   "&Demos"
  17.       Index           =   0
  18.       Begin Menu demo 
  19.          Caption         =   "&Captions Properties"
  20.          Index           =   0
  21.       End
  22.       Begin Menu demo 
  23.          Caption         =   "&Frame & Background Properties"
  24.          Index           =   1
  25.       End
  26.       Begin Menu demo 
  27.          Caption         =   "&Knob Properties"
  28.          Index           =   2
  29.       End
  30.       Begin Menu demo 
  31.          Caption         =   "&Marks Properties"
  32.          Index           =   3
  33.       End
  34.       Begin Menu demo 
  35.          Caption         =   "&Selection Properties"
  36.          Index           =   4
  37.       End
  38.       Begin Menu demo 
  39.          Caption         =   "-"
  40.          Index           =   5
  41.       End
  42.       Begin Menu demo 
  43.          Caption         =   "&Examples"
  44.          Index           =   6
  45.       End
  46.    End
  47.    Begin Menu mnu 
  48.       Caption         =   "&Help"
  49.       Index           =   1
  50.       Begin Menu help 
  51.          Caption         =   "&About Selector"
  52.          Index           =   0
  53.       End
  54.       Begin Menu help 
  55.          Caption         =   "&Selector Help"
  56.          Index           =   1
  57.       End
  58.       Begin Menu help 
  59.          Caption         =   "All GMS Controls"
  60.          Index           =   2
  61.       End
  62.    End
  63.    Begin Menu mnu 
  64.       Caption         =   "&Order"
  65.       Index           =   2
  66.    End
  67.    Begin Menu mnu 
  68.       Caption         =   "E&xit"
  69.       Index           =   3
  70.    End
  71. End
  72.  
  73. Sub demo_Click (index As Integer)
  74.  
  75.     Select Case index
  76.         Case 0  'caption
  77.             CaptionDemo.Show
  78.         Case 1 'Frame & background
  79.             framedemo.Show
  80.         Case 2 'Knob
  81.             Knobdemo.Show
  82.         Case 3 'Mark
  83.             MarkDemo.Show
  84.         Case 4 'selection
  85.             SelectionDemo.Show
  86.         Case 6 'examples
  87.             examples.Show
  88.     End Select
  89.  
  90. End Sub
  91.  
  92. Sub help_Click (index As Integer)
  93.  
  94.     Select Case index
  95.         Case 0
  96.             about.Show
  97.         Case 1
  98.             i = Shell("WINHELP selector.hlp", 1)
  99.         Case 2
  100.             i = Shell("WINHELP instrmlb.hlp", 1)
  101.     End Select
  102.     
  103. End Sub
  104.  
  105. Sub MDIForm_Load ()
  106.  
  107.     about.Show
  108.  
  109. End Sub
  110.  
  111. Sub mnu_Click (index As Integer)
  112.  
  113.     Select Case index
  114.         Case 2
  115.             i = Shell("WINHELP order.hlp", 1)
  116.         Case 3
  117.             End
  118.     End Select
  119.  
  120. End Sub
  121.  
  122.